﻿Imports System.Data.OleDb
Public Class CV_Productos

    Private Conexion As New OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Yanapay;Data Source=LANEGRA\SQLEXPRESS")

    Public Function BuscarProducto(ByVal paramDescrip As String) As DataSet

        Dim comando As New OleDb.OleDbCommand() 'Este objeto se encarga de ejecutar consultas sql a la base de datos
        comando.CommandType = CommandType.StoredProcedure 'El comando ejecutará un procedimiento almacenado
        comando.Connection = Me.Conexion 'Indicamos al objeto comando a donde se conectará a través del objeto Conexion

        comando.CommandText = "BuscarStockNombre" 'El nombre del procedimiento almacenado
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramDescrip", paramDescrip))

        Dim ds As New DataSet
        Dim DA As New OleDbDataAdapter(comando)
        Conexion.Open() 'Abrimos la conexion a la base de datos
        DA.Fill(ds, "Productos")
        Conexion.Close() 'Cerramos la conexion
        Return ds
    End Function
End Class
